home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 3 / BBS in a box - Trilogy III.iso / Files / Tele / D-F / FSP-BD Folder / FSPC(Files.New) < prev    next >
Encoding:
Text File  |  1992-04-06  |  8.0 KB  |  230 lines  |  [TEXT/MSWD]
  1. *
  2. * This file creates text files for all sections for later       *
  3. * inclusion into a NEWFILES text file for file requesting       *
  4. *
  5. * Define pathname labels  *
  6. *
  7. *
  8. DEFINE "TRANSPATH" "SCSI:BBS:TRANS"
  9. DEFINE "TICPATH" "SCSI:BBS:TIC"
  10. DEFINE "FSPPATH" "SCSI:BBS:FSP.TXT:"
  11. *
  12. CLEAR
  13. *
  14. *** Set up the header text files for the NEWFILES listing *
  15. *
  16. DEFINE "TxtHdr1" "30 Day New Files Available for FREQ from 15/16 as of \Date..."
  17. DEFINE "TxtHdr2" "REMINDER list changes frequently..."
  18. DEFINE "TxtHdr3" "   "
  19. FORMAT "COL:3+'FREQ name:'+NAME+COL:40+'Vers:'+VERS+COL:60+'Size:'+SIZEK"
  20. FORMAT "+CR+0+DESCA"
  21. FORMAT "+TAB"
  22. SAVETEXT/FORMAT "SCSI:BBS:FSP.TXT:Header.New"
  23. DEFINE "TxtHdr1" ""               ; Clear out the TxtHdr entry
  24. DEFINE "TxtHdr2" ""
  25. DEFINE "TxtHdr3" ""
  26. *
  27. **********************************************************
  28. * Define Macro to create individual text file listings   *
  29. *                                                        *
  30. * This macro loads each section, adds the areaname       *
  31. * to the top of the text file, then adds all entry's     *
  32. * over 30 days to the section. Then saves it as text file *
  33. *with it's own unique name for later inclusion into the  *
  34. * NEWFILES listing                                       *
  35. **********************************************************
  36. CLEAR
  37. DEFINEMACRO "NewFilesCreate"
  38. LOAD "@1"
  39. SORT/DATE
  40. DELETE/AGE ">30"
  41. PURGE
  42. SORT/TITLE
  43. DEFINE "TxtHdr1" "**********"
  44. DEFINE "TxtHdr2" "AreaName"
  45. DEFINE "TxtHdr3" "**********"
  46. FORMAT "COL:3+'FREQ name:'+NAME+COL:40+'Vers:'+VERS+COL:60+'Size:'+SIZEK"
  47. FORMAT "+CR+0+DESCA"
  48. CONCATENATE "F1" "AreaName" ".New"
  49. CONCATENATE "F2" "FSPPATH" "F1"
  50. SAVETEXT/FORMAT "F2"
  51. DEFINE "TxtHdr1" ""             ; clear out the TxtHdr
  52. DEFINE "TxtHdr2" ""
  53. DEFINE "TxtHdr3" ""
  54. ENDMACRO
  55. *
  56. * Go do the Macro                               *
  57. *
  58. * Each Area's name must be defined before entry *
  59. * into the macro to add the proper filename     *
  60. * when the section is saved                     *
  61. *
  62. *
  63. DEFINE "AreaName" "AMIGA"
  64. NewFilesCreate "TRANSPATH:AMIGA:AMIGA"
  65. DEFINE "AreaName" "APPLE"
  66. NewFilesCreate "TRANSPATH:APPLE:APPLE"
  67. DEFINE "AreaName" "COMMODORE"
  68. NewFilesCreate "TRANSPATH:COM64:COMMODORE"
  69. DEFINE "AreaName" "FIDO"
  70. NewFilesCreate "TRANSPATH:FIDO:FIDO"
  71. DEFINE "AreaName" "IBMAPPS"
  72. NewFilesCreate "TICPATH:IBM:IBM:IBMAPPS:IBMAPPS"
  73. DEFINE "AreaName" "IBMART"
  74. NewFilesCreate "TICPATH:IBM:IBM:IBMART:IBMART"
  75. DEFINE "AreaName" "IBMC"
  76. NewFilesCreate "TICPATH:IBM:IBM:IBMC:IBMC"
  77. DEFINE "AreaName" "IBMCOMM"
  78. NewFilesCreate "TICPATH:IBM:IBM:IBMCOMM:IBMCOMM"
  79. DEFINE "AreaName" "IBMGAMES"
  80. NewFilesCreate "TICPATH:IBM:IBM:IBMGAMES:IBMGAMES"
  81. DEFINE "AreaName" "IBMMISC"
  82. NewFilesCreate "TICPATH:IBM:IBM:IBMMISC:IBMMISC"
  83. DEFINE "AreaName" "IBMPASCAL"
  84. NewFilesCreate "TICPATH:IBM:IBM:IBMPASCAL:IBMPASCAL"
  85. DEFINE "AreaName" "IBMUTIL"
  86. NewFilesCreate "TICPATH:IBM:IBM:IBMUTIL:IBMUTIL"
  87. DEFINE "AreaName" "MACAPPS"
  88. NewFilesCreate "TICPATH:MAC:MAC:MACAPPS:MACAPPS"
  89. DEFINE "AreaName" "MACDA"
  90. NewFilesCreate "TICPATH:MAC:MAC:MACDA:MACDA"
  91. DEFINE "AreaName" "MACEDUC"
  92. NewFilesCreate "TICPATH:MAC:MAC:MACEDUC:MACEDUC"
  93. DEFINE "AreaName" "MACFKEY"
  94. NewFilesCreate "TICPATH:MAC:MAC:MACFKEY:MACFKEY"
  95. DEFINE "AreaName" "MACFONT"
  96. NewFilesCreate "TICPATH:MAC:MAC:MACFONT:MACFONT"
  97. DEFINE "AreaName" "MACGAMES"
  98. NewFilesCreate "TICPATH:MAC:MAC:MACGAMES:MACGAMES"
  99. DEFINE "AreaName" "MACGRAPH"
  100. NewFilesCreate "TICPATH:MAC:MAC:MACGRAPH:MACGRAPH"
  101. DEFINE "AreaName" "MACHC"
  102. NewFilesCreate "TICPATH:MAC:MAC:MACHC:MACHC"
  103. DEFINE "AreaName" "MACINIT"
  104. NewFilesCreate "TICPATH:MAC:MAC:MACINIT:MACINIT"
  105. DEFINE "AreaName" "MACPROG"
  106. NewFilesCreate "TICPATH:MAC:MAC:MACPROG:MACPROG"
  107. DEFINE "AreaName" "MACSOUND"
  108. NewFilesCreate "TICPATH:MAC:MAC:MACSOUND:MACSOUND"
  109. DEFINE "AreaName" "MACTELE"
  110. NewFilesCreate "TICPATH:MAC:MAC:MACTELE:MACTELE"
  111. DEFINE "AreaName" "MACUTIL"
  112. NewFilesCreate "TICPATH:MAC:MAC:MACUTIL:MACUTIL"
  113. DEFINE "AreaName" "MDNADMIN"
  114. NewFilesCreate "TICPATH:MAC:MDN:MDNADMIN:MDNADMIN"
  115. DEFINE "AreaName" "MDNDEMO"
  116. NewFilesCreate "TICPATH:MAC:MDN:MDNDEMO:MDNDEMO"
  117. DEFINE "AreaName" "MDNGAMER"
  118. NewFilesCreate "TICPATH:MAC:MDN:MDNGAMER:MDNGAMER"
  119. DEFINE "AreaName" "MDNINFO"
  120. NewFilesCreate "TICPATH:MAC:MDN:MDNINFO:MDNINFO"
  121. DEFINE "AreaName" "MDNOTHER"
  122. NewFilesCreate "TICPATH:MAC:MDN:MDNOTHER:MDNOTHER"
  123. DEFINE "AreaName" "MDNPROG"
  124. NewFilesCreate "TICPATH:MAC:MDN:MDNPROG:MDNPROG"
  125. DEFINE "AreaName" "MDNTELE"
  126. NewFilesCreate "TICPATH:MAC:MDN:MDNTELE:MDNTELE"
  127. DEFINE "AreaName" "MDNUTIL"
  128. NewFilesCreate "TICPATH:MAC:MDN:MDNUTIL:MDNUTIL"
  129. DEFINE "AreaName" "MDNEDUC"
  130. NewFilesCreate "TICPATH:MAC:MDN:MDNEDUC:MDNEDUC"
  131. DEFINE "AreaName" "MDNPCMAC"
  132. NewFilesCreate "TICPATH:MAC:MDN:MDNPCMAC:MDNPCMAC"
  133. DEFINE "AreaName" "MFNFONT"
  134. NewFilesCreate "TICPATH:MAC:MFN:MFNFONT:MFNFONT"
  135. DEFINE "AreaName" "MFNPROG"
  136. NewFilesCreate "TICPATH:MAC:MFN:MFNPROG:MFNPROG"
  137. DEFINE "AreaName" "MFNEDUC"
  138. NewFilesCreate "TICPATH:MAC:MFN:MFNEDUC:MFNEDUC"
  139. DEFINE "AreaName" "MFNHC"
  140. NewFilesCreate "TICPATH:MAC:MFN:MFNHC:MFNHC"
  141. DEFINE "AreaName" "MFNUTIL"
  142. NewFilesCreate "TICPATH:MAC:MFN:MFNUTIL:MFNUTIL"
  143. DEFINE "AreaName" "MFNTELE"
  144. NewFilesCreate "TICPATH:MAC:MFN:MFNTELE:MFNTELE"
  145. DEFINE "AreaName" "MFNDA"
  146. NewFilesCreate "TICPATH:MAC:MFN:MFNDA:MFNDA"
  147. DEFINE "AreaName" "MFNINIT"
  148. NewFilesCreate "TICPATH:MAC:MFN:MFNINIT:MFNINIT"
  149. DEFINE "AreaName" "MFNGAMES"
  150. NewFilesCreate "TICPATH:MAC:MFN:MFNGAMES:MFNGAMES"
  151. DEFINE "AreaName" "MFNSOUND"
  152. NewFilesCreate "TICPATH:MAC:MFN:MFNSOUND:MFNSOUND"
  153. DEFINE "AreaName" "MFNGRAPH"
  154. NewFilesCreate "TICPATH:MAC:MFN:MFNGRAPH:MFNGRAPH"
  155. DEFINE "AreaName" "MFNAPPS"
  156. NewFilesCreate "TICPATH:MAC:MFN:MFNAPPS:MFNAPPS"
  157. DEFINE "AreaName" "PDNAI"
  158. NewFilesCreate "TICPATH:IBM:PDN:PDNAI:PDNAI"
  159. DEFINE "AreaName" "PDNASM"
  160. NewFilesCreate "TICPATH:IBM:PDN:PDNASM:PDNASM"
  161. DEFINE "AreaName" "PDNBASIC"
  162. NewFilesCreate "TICPATH:IBM:PDN:PDNBASIC:PDNBASIC"
  163. DEFINE "AreaName" "PDNBATCH"
  164. NewFilesCreate "TICPATH:IBM:PDN:PDNBATCH:PDNBATCH"
  165. DEFINE "AreaName" "PDNCEE"
  166. NewFilesCreate "TICPATH:IBM:PDN:PDNCEE:PDNCEE"
  167. DEFINE "AreaName" "PDNGNU"
  168. NewFilesCreate "TICPATH:IBM:PDN:PDNGNU:PDNGNU"
  169. DEFINE "AreaName" "PDNGNDOS"
  170. NewFilesCreate "TICPATH:IBM:PDN:PDNGNDOS:PDNGNDOS"
  171. DEFINE "AreaName" "PDNLANG"
  172. NewFilesCreate "TICPATH:IBM:PDN:PDNLANG:PDNLANG"
  173. DEFINE "AreaName" "PDNNEWS"
  174. NewFilesCreate "TICPATH:IBM:PDN:PDNNEWS:PDNNEWS"
  175. DEFINE "AreaName" "PDNNEWS"
  176. NewFilesCreate "TICPATH:IBM:PDN:PDNOS2:PDNNEWS"
  177. DEFINE "AreaName" "PDNOTHER"
  178. NewFilesCreate "TICPATH:IBM:PDN:PDNOTHER:PDNOTHER"
  179. DEFINE "AreaName" "PDNPASCL"
  180. NewFilesCreate "TICPATH:IBM:PDN:PDNPASCL:PDNPASCL"
  181. DEFINE "AreaName" "PDNUNIX"
  182. NewFilesCreate "TICPATH:IBM:PDN:PDNUNIX:PDNUNIX"
  183. DEFINE "AreaName" "PDNWIN"
  184. NewFilesCreate "TICPATH:IBM:PDN:PDNWIN:PDNWIN"
  185. DEFINE "AreaName" "SC_UUCP"
  186. NewFilesCreate "TICPATH:IBM:PDN:PDNSC_UUCP:SC_UUCP"
  187. DEFINE "AreaName" "SDN_BUSI"
  188. NewFilesCreate "TICPATH:IBM:SDN:SDN_BUSI:SDN_BUSI"
  189. DEFINE "AreaName" "SDN_COMM"
  190. NewFilesCreate "TICPATH:IBM:SDN:SDN_COMM:SDN_COMM"
  191. DEFINE "AreaName" "SDN_DATA"
  192. NewFilesCreate "TICPATH:IBM:SDN:SDN_DATA:SDN_DATA"
  193. DEFINE "AreaName" "SDN_GRAP"
  194. NewFilesCreate "TICPATH:IBM:SDN:SDN_GRAP:SDN_GRAP"
  195. DEFINE "AreaName" "SDN_MISC"
  196. NewFilesCreate "TICPATH:IBM:SDN:SDN_MISC:SDN_MISC"
  197. DEFINE "AreaName" "SDN_UTIL"
  198. NewFilesCreate "TICPATH:IBM:SDN:SDN_UTIL:SDN_UTIL"
  199. DEFINE "AreaName" "SDN_WORD"
  200. NewFilesCreate "TICPATH:IBM:SDN:SDN_WORD:SDN_WORD"
  201. DEFINE "AreaName" "SDN_SYST"
  202. NewFilesCreate "TICPATH:IBM:SDN:SDN_SYST:SDN_SYST"
  203. DEFINE "AreaName" "SDN_OTHR"
  204. NewFilesCreate "TICPATH:IBM:SDN:SDN_OTHR:SDN_OTHR"
  205. DEFINE "AreaName" "SDN_GAME"
  206. NewFilesCreate "TICPATH:IBM:SDN:SDN_GAME:SDN_GAME"
  207. DEFINE "AreaName" "BACKBONE"
  208. NewFilesCreate "TICPATH:BACKBONE:BACKBONE"
  209. DEFINE "AreaName" "ECHOLST"
  210. NewFilesCreate "TICPATH:ECHOLIST:ECHOLST"
  211. DEFINE "AreaName" "NODEDIF"
  212. NewFilesCreate "TICPATH:NODEDIFF:NODEDIF"
  213. DEFINE "AreaName" "FIDONWS"
  214. NewFilesCreate "TICPATH:FIDONEWS:FIDONWS"
  215. DEFINE "AreaName" "SERVICES"
  216. NewFilesCreate "TICPATH:SERVICES:SERVICES"
  217. DEFINE "AreaName" "ECHOPOL"
  218. NewFilesCreate "TICPATH:ECHOPOL:ECHOPOL"
  219. DEFINE "AreaName" "FILEMOVE"
  220. NewFilesCreate "TICPATH:FILEMOVE:FILEMOVE"
  221. DEFINE "AreaName" "NEWMUG"
  222. NewFilesCreate "TRANSPATH:NEWMUG:NEWMUG"
  223. DEFINE "AreaName" "LEDS"
  224. NewFilesCreate "TRANSPATH:POLICE:LEDS"
  225. *
  226. * We're done, so go launch Timestamp/SS*
  227. LAUNCH "SCSI:BBS:TimeStamp"
  228. *
  229. END
  230.